home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / dialslid.d < prev    next >
Text File  |  1997-10-26  |  2KB  |  52 lines
  1. DEFINITION MODULE DialSlider;
  2.  
  3. FROM mtUtils    IMPORT tRect;
  4.  
  5. TYPE SLIDER;
  6.  
  7. PROCEDURE DrawSlider (sl : SLIDER; r : tRect; clip : BOOLEAN);
  8. (* Zeichnet den Slider sl im Rechtecht r (oder ganz, 
  9.  * wenn clip FALSE ist)
  10.  *)
  11.  
  12. PROCEDURE CreateSlider (VAR sl : SLIDER; hori : BOOLEAN; accel : INTEGER;
  13.                         slSize : INTEGER; slScale, slPos : LONGINT): BOOLEAN;
  14. (* Erzeugt einen neuen Slider. hori gibt an, ob es sich um einen 
  15.  * horizontalen Slider handelt, und accel gibt die Zeilenzahl beim
  16.  * scrollen an (normalerweise 1)
  17.  *)
  18.  
  19. PROCEDURE FreeSlider (sl : SLIDER);
  20. (* Gibt einen Slider wieder frei. Danach darf nicht mehr
  21.  * darauf zugegriffen werden
  22.  *)
  23.  
  24. PROCEDURE SetSliderSize (sl : SLIDER; size : INTEGER);
  25. (* Setzt die Gr”že des Sliders  
  26.  *)
  27.  
  28. PROCEDURE SetSliderScale (sl : SLIDER; scale : LONGINT); 
  29. (* Setzt die Skalierung fr den Slider (Anzahl Elemente)
  30.  *)
  31.  
  32. PROCEDURE SetSliderPos (sl : SLIDER; pos : LONGINT; draw: BOOLEAN);
  33. (* Setzt die aktuelle Position des Sliders
  34.  *)
  35.  
  36. PROCEDURE SliderExtents (sl : SLIDER; x, y : INTEGER; len : INTEGER; draw: BOOLEAN);
  37. (* Plaziert den Slider an die richtige Stelle
  38.  * Sollte direkt nach dem Erzeugen aufgerufen werden 
  39.  *)
  40.  
  41. TYPE updateProc = PROCEDURE ((* sl : *) SLIDER, (* pos: *) LONGINT);
  42.                             
  43. PROCEDURE SliderClick (sl : SLIDER; x, y : INTEGER; clicks : INTEGER; update : updateProc): LONGINT; 
  44. (* In: Mauskoordinate. Out: Neue Position. Bei einem Mausklick
  45.  * aužerhalb des Sliders wird -1 zurckgegeben
  46.  * Falls sich die Koordinate ge„ndert hat, wird aužerdem vorher noch 
  47.  * die UpdateProc update aufgerufen mit dem neuen Wert. 
  48.  * Aužerdem wird beim Scrolling auch die 
  49.  * Updateproc st„ndig aufgerufen, falls sich der Wert „ndert.
  50.  *)
  51.  
  52. END DialSlider.